library(tidyverse)
library(readxl)
path <- "Excel/800-899/856/856 Capitalize Consonants Around Vowels.xlsx"
input <- read_excel(path, range = "A1:A10")
test <- read_excel(path, range = "B1:B10")
result = input %>%
mutate(
out = str_replace_all(
Authors,
"(?<=[aeiou])([^aeiou])|([^aeiou])(?=[aeiou])",
~ toupper(.x)
)
)
all.equal(result$out, test$`Expected Answer`)
# [1] TRUEExcel BI - Excel Challenge 856
excel-challenges
excel-formulas
🔰 Authors Expected Answer william shakespeare WiLLiaM sHaKeSPeaRe agatha mary clarissa christie aGaTHa MaRy cLaRiSSa chRiSTie danielle steel DaNieLLe sTeeL harold robbins HaRoLd RoB…

Challenge Description
🔰 Authors Expected Answer william shakespeare WiLLiaM sHaKeSPeaRe agatha mary clarissa christie aGaTHa MaRy cLaRiSSa chRiSTie danielle steel DaNieLLe sTeeL harold robbins HaRoLd RoBBiNs
Solutions
- Logic: Read the workbook ranges needed for the challenge; Derive the required intermediate columns.
- Strengths: The code maps the workbook rule into a compact, reproducible pipeline.
- Areas for Improvement: The solution assumes the workbook layout and selected ranges remain stable, so any structural change in the sheet would require small adjustments.
- Gem: The elegant part is how little code is needed once the correct intermediate representation is chosen.
import pandas as pd
import re
path = "Excel/800-899/856/856 Capitalize Consonants Around Vowels.xlsx"
input = pd.read_excel(path, usecols="A", nrows=10)
test = pd.read_excel(path, usecols="B", nrows=10)
pattern = r'(?<=[aeiou])([^aeiou])|([^aeiou])(?=[aeiou])'
input['out'] = input.iloc[:, 0].str.replace(pattern, lambda m: m.group(0).upper(), regex=True, flags=re.IGNORECASE)
print(input['out'].equals(test.iloc[:, 0])) # TrueThe Python version expresses the core extraction rule directly and keeps the pattern matching easy to review.
Difficulty Level
Easy / Medium
The business rule is clear, though the workbook still needs a few transformation steps to reach the expected output.